home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / phonlist.arc / PHONE LIST (.txt)
Commodore BASIC  |  1987-08-08  |  3KB  |  162 lines
  1. 5 POKE53281,11:POKE53280,0
  2. 10 DIMM$(1000),N$(1000)
  3. 20 D=3
  4. 30 PRINT"[147]":GOSUB40:GOTO70
  5. 40 FORA=1TO39:PRINTMID$("",A+(A>8)*8+(A>16)*8,1)" ";
  6. 50 NEXT:PRINT"[146] ";:RETURN
  7. 60 GOSUB40:GOTO70
  8. 70 PRINT"[159]WRITTEN BY":PRINT
  9. 80 PRINT"[144] JACK D. HENDRICKS"
  10. 90 PRINT"";:GOSUB40:PRINT"":GOSUB40:GOSUB1800
  11. 95 REMPRINT"         PRESS ANY KEY"
  12. 100 GOSUB1900
  13. 110 PRINT"[158]            OPTIONS:":PRINT"            1[146] LOAD NO.S"
  14. 120 PRINT"            2[146] CREATE FILE"
  15. 130 PRINT"            3[146] DELETE NO."
  16. 140 PRINT"            4[146] ADD NO.S"
  17. 150 PRINT"            5[146] VIEW NO.S"
  18. 160 PRINT"            6[146] SAVE FILE"
  19. 170 PRINT"            7[146] PRINT NO.S"
  20. 180 PRINT"            8[146] ALPHABETIZE"
  21. 190 PRINT"            9[146] EXIT PROGRAM"
  22. 200 PRINT"            WHICH ONE?"
  23. 205 GOSUB1810:A=VAL(A$)
  24. 210 IFA<1ORA>9THEN200
  25. 220 ONAGOSUB240,500,600,800,900,1300,2100,2000,1700
  26. 225 GOTO100
  27. 230 DISK OR TAPEPRINT
  28. 240 GOSUB1900:PRINT"          [159]D[146]ISK OR T[146]APE?"
  29. 250 GOSUB1810
  30. 260 IFA$="D"THEN300
  31. 270 IFA$="T"THEN400
  32. 280 GOTO250
  33. 290 DISK LOAD
  34. 300 INPUT"          FILE NAME ";P$
  35. 310 OPEN2,8,2,"0:"+P$+",S,R"
  36. 320 INPUT#2,N
  37. 330 FORI=1TON
  38. 340 INPUT#2,M$(I)
  39. 350 INPUT#2,N$(I)
  40. 360 NEXT:CLOSE2
  41. 370 PRINT"PROGRAM CURRENTLY     CONTAINS"N:PRINT"LISTING."
  42. 380 GOSUB1810:CLOSE2:RETURN
  43. 390 TAPE LOAD
  44. 400 OPEN1
  45. 410 INPUT#1,N
  46. 420 FORI=1TON
  47. 430 INPUT#1,M$(I)
  48. 440 INPUT#1,N$(I)
  49. 450 NEXT:CLOSE1
  50. 460 PRINT"PROGRAM CURRENTLY     CONTAINS"N:PRINT"LISTING."
  51. 470 GOSUB1810:RETURN
  52. 490 CREATE
  53. 500 GOSUB1900:N=1:I=1
  54. 510 PRINT"FREE MEM."FRE(.):INPUT"NAME";M$(I):IFM$(I)="*END"THENM$(I)="":N=N-1:I=I-1:RETURN
  55. 520 INPUT"NO.";N$(I)
  56. 530 N=N+1:I=I+1
  57. 540 GOSUB1900:GOTO510
  58. 590 DELETE
  59. 600 GOSUB1900
  60. 610 INPUT"         NAME TO DELETE";A$
  61. 620 FORI=1TON
  62. 630 IFM$(I)=A$THEN680
  63. 640 NEXT
  64. 650 PRINT"          I CAN'T FIND "A$"."
  65. 660 PRINT"IT COULD BE MISSPELLED"
  66. 670 GOSUB1810:RETURN
  67. 680 FORA=I+1TON+1
  68. 690 M$(A-1)=M$(A):N$(A-1)=N$(A)
  69. 700 NEXT:N=N-1
  70. 710 RETURN
  71. 790 ADD
  72. 800 GOSUB1900:FORI=1TON:NEXT
  73. 810 PRINT"FREE MEM."FRE(.):INPUT"NAME";M$(I):IFM$(I)="*END"THENRETURN
  74. 820 INPUT"NO.";N$(I)
  75. 830 N=N+1:I=I+1
  76. 840 GOSUB1900:GOTO810
  77. 890 VIEW
  78. 900 GOSUB1900:PRINT"[158]         HOW DO YOU WANT TO VIEW?"
  79. 910 PRINT"            N[146]AME"
  80. 920 PRINT"            L[146]ETTER"
  81. 930 PRINT"            C[146]OMPLETE LIST"
  82. 940 PRINT"            WHICH ONE?"
  83. 950 GOSUB1810
  84. 960 IFA$="N"THEN1010
  85. 970 IFA$="L"THEN1100
  86. 980 IFA$="C"THEN1200
  87. 990 GOTO950
  88. 1000 NAME SORT
  89. 1010 GOSUB1900
  90. 1020 INPUT"         NAME";A$:PRINT"[147]":OPEND,D,5:CMDD
  91. 1030 FORI=1TON
  92. 1040 IFM$(I)=A$THENPRINT#D,M$(I):PRINT#D,N$(I):IFD=3THENPRINT
  93. 1050 NEXT
  94. 1055 REM OPEND
  95. 1060 PRINT"THAT'S ALL OF THEM."
  96. 1065 CLOSED
  97. 1070 GOSUB1800:RETURN
  98. 1090 LETTER SORT
  99. 1100 PRINT"WHAT LETTER DO YOU":INPUT"WANT TO SORT BY";A$:PRINT"[147]":OPEND,D:CMDD
  100. 1110 FORI=1TON
  101. 1120 IFLEFT$(M$(I),LEN(A$))=A$THENPRINT#D,M$(I):PRINT#D,N$(I):IFD=3THENPRINT:FORA=1TO2000:NEXT
  102. 1130 NEXT
  103. 1140 GOTO1060
  104. 1190 COMPLETE SORT
  105. 1200 PRINT"[147]":OPEND,D:CMDD:FORI=1TON
  106. 1210 PRINT#D,M$(I):PRINT#D,N$(I):IFD=3THENPRINT#D
  107. 1220 IFD=3THENFORA=1TO2000:NEXT
  108. 1230 NEXT:D=3:GOTO1060
  109. 1290 SAVE
  110. 1300 GOSUB1900
  111. 1310 PRINT"D[146]ISK OR T[146]APE?"
  112. 1320 GOSUB1800
  113. 1330 IFA$="D"THEN1370
  114. 1340 IFA$="T"THEN1460
  115. 1350 GOTO1320
  116. 1360 DISK SAVE
  117. 1370 INPUT"FILE NAME";P$
  118. 1380 OPEN2,8,2,"@0:"+P$+",S,W"
  119. 1390 PRINT#2,N
  120. 1400 FORI=1TON
  121. 1410 PRINT#2,M$(I)
  122. 1420 PRINT#2,N$(I)
  123. 1430 NEXT:CLOSE2
  124. 1440 GOTO100
  125. 1450 TAPE SAVE
  126. 1460 OPEN1,1,1
  127. 1470 PRINT#1,N
  128. 1480 FORI=1TON
  129. 1490 PRINT#1,M$(I)
  130. 1500 PRINT#1,N$(I)
  131. 1510 NEXT:CLOSE1
  132. 1520 GOTO100
  133. 1590 PRINT
  134. 1600 OPEN4,4:CMD4
  135. 1610 FORI=1TON
  136. 1620 PRINT#4,M$(I)
  137. 1630 PRINT#4,N$(I)
  138. 1640 PRINT#4
  139. 1650 NEXT
  140. 1660 PRINT#4
  141. 1670 PRINT#4,"          THAT'S ALL OF THEM."
  142. 1680 CLOSE4:GOTO100
  143. 1690 EXIT
  144. 1700 CLOSE4:CLOSE2:END
  145. 1800 REMPRINT"          PRESS ANY KEY[146]"
  146. 1805 REM PRINT"         [158] PRESS ANY KEY[146]"
  147. 1810 GETA$:IFA$=""THEN1810
  148. 1820 RETURN
  149. 1899 END
  150. 1900 PRINT"[147]                                        "
  151. 1910 PRINT"[145]      [146]PHONE LIST                      "
  152. 1920 PRINT"[145]                                        "
  153. 1930 RETURN
  154. 1990 ALPHABETIZE
  155. 2000 PRINT" [159]ALPHABETIZING PLEASE[146]         WAIT!":FORA=1TON-1
  156. 2005 PRINT"[145]"TI
  157. 2010 FORB=A+1TON
  158. 2020 IFM$(B)<=M$(A)THENSM$=M$(B):M$(B)=M$(A):M$(A)=SM$:SM$=N$(B):N$(B)=N$(A):N$(A)=SM$
  159. 2030 NEXTB:NEXTA
  160. 2040 RETURN
  161. 2100 D=4:GOTO900
  162.